home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / Script Tools / Examples / Move File < prev    next >
Text File  |  1993-09-10  |  434b  |  11 lines
  1. --
  2. --    Find out if the user wants to move a file or a folder
  3. --
  4.  
  5. if button returned of (display dialog "Move a file or a folder?" buttons {"File", "Folder"}) = "File" then
  6.     move file (choose file with prompt "Pick a file to move:") to (¬
  7.         choose folder with prompt "Pick a destination folder:")
  8. else
  9.     move file (choose folder with prompt "Pick a folder to move:") to (¬
  10.         choose folder with prompt "Pick a destination folder:")
  11. end if